home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AOL File Library: 9,300 to 9,399
/
9300.zip
/
AOLDLs
/
HTML & Web Tools (MAC)
/
WWW_ GifBuilder 0.4.1
/
GifBuilder 0.4.1.sit
/
GifBuilder 0.4.1
/
Sample Scripts
/
BeachBall sample script
next >
Wrap
Text File
|
1996-03-25
|
829b
|
29 lines
property w : 80
property h : 80
property red : {65535, 0, 0}
property blue : {0, 0, 65535}
property green : {0, 65535, 0}
property yellow : {65535, 65535, 0}
property step : 20
tell application "clip2gif"
set l to {}
save {w, h} in window -- creates a new window
repeat with i from 0 to 360 - step by step
save {w, h} in window 1 ┬
drawing {{chart data:{i, blue, 90, blue, 90, yellow, 90, red, 90, green}, chart style:pie, position:{0, 0, w, h}}}
set end of l to content of window 1
end repeat
end tell
tell application "GifBuilder"
new
repeat with p in l
make new frame at end with data {contents:(p as item), transparency:first pixel, disposal method:no, interframe delay:10}
end repeat
set depth to 4
set color table to system colors
set loop to 0
save in (new file default name "multigif.gif")
end tell